home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.04578.STOWERS.JAN.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  938b  |  11 lines
  1. 5  HOME :D$ =  CHR$(13) + CHR$(4)
  2. 10  PRINT "     THE FOLLOWING IS ONE WAY TO": PRINT "RENUMBER THE LAST LINE OF A PROGRAM TO": PRINT "65432 I FOUND ON A TIP SHEET FROM FAST": PRINT "LOUIE'S."
  3. 20  PRINT : PRINT "1. LOAD YOUR PROGRAM, THEN ADD THESE": PRINT "LINES.": PRINT 
  4. 30  PRINT "  1 FOR L=PEEK(175)+PEEK(176)*256 TO 1": PRINT "STEP-1:IF PEEK(L)=0 AND PEEK(L-1)=0": PRINT "THEN FOR M=L-2 TO 1 STEP -1:": PRINT "IF PEEK(M)+PEEK(M+1)*256=L-1 THEN"
  5. 40  PRINT "POKE M+2,152:POKE M+3,255:END": PRINT : PRINT "  2 NEXT"
  6. 50  PRINT : PRINT "2. RUN THE PROGRAM"
  7. 60  PRINT : PRINT "3. DELETE LINES 1 & 2, AND THATS IT!"
  8. 70  VTAB 24: HTAB 9: PRINT "HIT ANY KEY TO GO ON";: GET I$
  9. 80  HOME : VTAB 9: PRINT "     TO CHANGE THE LAST LINE TO AN": PRINT "ACCESSIBLE 63999,CHANGE THE LAST POKE": PRINT "IN LINE 1 TO POKE M+3,249. THEN FOLLOW": PRINT "STEPS 2 & 3.
  10. 90  VTAB 24: HTAB 9: PRINT "HIT ANY KEY TO GO ON";: GET I$
  11. 100  PRINT D$"RUN PAL.MENU"